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-- file SymbolTable.Mesa 

— last modified by Barbara, October 3, 1977 11:24 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" , 
ControlDefs: FROM "controldefs", 
InlineDefs: FROM "inl inedef s'\ 
StringDefs: FROM "stringdef s" , 
TableDefs: FROM "tabledefs", 
SymTabDefs: FROM "symtabdef s" , 
SymDefs: FROM "symdefs"; 

SymbolTable: PROGRAM 
IMPORTS StringDefs 
EXPORTS SymTabDefs SHARES SymDefs = 
PUBLIC 
BEGIN 
OPEN SymDefs; 

-- tables defining the current symbol table 

hashvec: DESCRIPTOR FOR ARRAY OF HTIndex; -- hash index 

ht: DESCRIPTOR FOR ARRAY —HTIndex-- OF HTRecord; -- hash table 

ssb: STRING; — id string 

seb: TableDefs. TableBase; — se table 

ctxb: TableDefs. TableBase; -- context table 

mdb: Tab! eDefs . TableBase ; -- module directory base 

bb: TableDefs. TableBase; -- body table 

stHandle: POINTER TO STHeader; 

-- info defining the source file links 
sourcefile: STRING; 
fgt: DESCRIPTOR FOR ARRAY OF FGTEntry; 

ignorecases: BOOLEAN; 

-- the following orocedure is called if the base values change 
notifier: PROCEDURE [POINTER TO FRAME[SymbolTable]] ; 

NullNotifier: PROCEDURE [POINTER TO FRAME[SymbolTable]] = 
BEGIN 
RETURN 
END; 

Substring: TYPE * StringDefs .Substring ; 

hashvalue: PROCEDURE [s: Substring] RETURNS [HVIndex] = 
BEGIN -- computes the hash index for string s 
CharBits: MACHINE CODE [CHARACTER, WORD] RETURNS [WORD] = 

LOOPHOLE [ I nl ineDef s . BITAND] ; 
mask: WORD = 337B; -- masks out ASCII case shifts 

n: CARDINAL = s. length; 
b: STRING = s.base; 
v: WORD; 

v «- CharBits[b[s. offset], mask]*177B + CharBi ts[b[s . of f se t + ( n-1 ) ] , mask]; 
RETURN [InlineDefs. BITXOR[v, n*17B] MOD LENGTH[hashvec]] 
END; 

FindString: PROCEDURE [s: Substring] RETURNS [found: BOOLEAN, hti: HTIndex] 
BEGIN 

OPEN Str ingDefs; 
desc: SubStr ingDescr ip tor ; 
ss : SubStr ing = Qdesc; 
hti ♦• has l ^vec[hashvalue[s]] ; 
WHTLf hti if HTNull 

DO 

SubStr ingForHash[ss , hti]; 

found «- 
(IT ignorecases T M f M Equ i val en tSubS tr i ngs TLSE Equal SubStr ings ) [s , ss ] ; 

If found THrN RTTURN; 

ht i ♦- ht[hti]. 1 ink; 

TNDl OOP; 
RTTURN [TAlSr, HTNull] 
TND; 
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SubStringForHash: PROCEDURE [s: Substring, hti: HTIndex] =» 
BEGIN -- gets string for hash table entry 
s.base «- ssb; 
IF ht1 = HTNull 

THEN s. offset +• s. length * 
ELSE 
BEGIN 

s. offset «- ht[hti].sslndex; 
s. length ♦• ht[hti+l] .sslndex - s. offset; 
END; 
RETURN 
END; 

hashforse: PROCEDURE [sei: ISEIndex] RETURNS [HTIndex] = 
BEGIN 

RETURN [(seb+sei).ht.ptr] 
END; 

searchcontext: PROCEDURE [hti: HTIndex, ctx: CTXIndex] RETURNS [BOOLEAN, ISEIndex] 
BEGIN 

sei, root: ISEIndex; 
IF ctx # CTXNull AND hti it HTNull 
THEN 

BEGIN sei ♦• root ♦- (ctxb+ctx) . sei ist; 
DO 

IF sei = SENull THEN EXIT; 

IF (seb+sei). htptr = hti THEN RETURN [TRUE, sei]; 
WITH (seb+sei) SELECT FROM 

sequential => sei «- sei + SIZE[sequential id SERecord]; 
linked *> IF (sei ♦- link) « root THEN EXIT; 
ENDCASE => EXIT; 
ENDLOOP; 
END; 
RETURN [FALSE, ISENull] 
END; 

— information returning procedures 

BytesPerWord: CARDINAL = Al toOef s . BytesPerWord ; 

symexternal: PROCEDURE [sei: ISEIndex] RETURNS [BOOLEAN] * 
BEGIN 

RETURN [(seb+sei) .external] 
END; 

symdefinition: PROCEDURE [sei: ISEIndex, onlypublic: BOOLEAN] RETURNS [BOOLEAN] = 
BEGIN 
RETURN [(seb+sei ) .ctxnum = stHandle .outerCtx 

AND (-onlypublic OR (seb+se i ) . publ ic) 

AND ( seb+sei ) .wri teonce] 
END; 

symtype: PROCEDURE [sei: ISEIndex] RETURNS [SEIndex] * 
BEGIN 

RETURN [(seb+sei). idtype] 
END; 

symconst: PROCEDURE [sei: ISEIndex] RETURNS [BOOLEAN] = 
BEGIN 

RETURN [(seb+sei) .constant] 
END; 

symaddress: PROCFDURF [sei: ISEIndex] RETURNS [bitaddress] = 
BEGIN 

IF (seb+sei) .constant THEN ERROR; 
RETURN [(seb+se i) . idvalue] 
END; 

symvalue: PROCEDURE [sei: ISEIndex] RFTURNS [UNSPECI T TED] = 
BEGIN 

IF ~(seb+se i ) .constant THEN ERROR; 
RETURN [(seb+se i) . idvalue] 
fND; 
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symentry: PROCEDURE [sei: ISEIndex] RETURNS [CARDINAL] * 
BEGIN 

bt1: BTIndex; 
IF ~(seb+sei) .constant OR xfermode[(seb+sei ) . idtype] # procedure 

THEN ERROR; 
bti «- LOOPHOLE[(seb+sei) . idvalue]; 
RETURN [(bb+bti). entryindex] 
END; 

transfertypes: PROCEDURE [type: SEIndex] RETURNS [typein, typeout: SEIndex] 
BEGIN 

sei: CSEIndex <- undertype[type]; 
tyoein <- typeout <- SENull; 
WITH (seb+sei) SELECT FROM 

transfer *> RETURN [inrecord, outrecord]; 

ENDCASE => NULL; 
RETURN 
END; 

fieldcontext: PROCEDURE [type: SEIndex] RETURNS [CTXIndex] = 
BEGIN 

sei: CSEIndex; 

IF type = SENull THEN RETURN [CTXNull]; 
sei «• undertype[type]; 
RETURN [WITH (seb+sei) SELECT FROM 

record => fieldctx, 

ENDCASE *> CTXNull] 
END; 

BytePC: TYPE » ControlDef s . BytePC; 

localcontext: PROCEDURE [pc: BytePC] RETURNS [CTXIndex] = 
BEGIN 

bti: BTIndex = PcToBti[pc]; 

RETURN [IF bti = BTNull THEN CTXNull ELSE (bb+bt i ) . localctx] 
END; 

PcToBti: PROCEDURE [pc: BytePC] RETURNS [BTIndex] * 
BEGIN -- maps pc into body table index 
btlimit: BTIndex = LOOPHOLE[stHandl e . bodyS ize] ; 
bti: BTIndex «- FIRST[BTIndex] ; 
IF pc = BytePC[0] THEN RETURN[bti]; 
UNTIL bti = btlimit 
DO 

WITH body: (bb+bti ) . Info SELECT FROM 
external => 

IF pc IN [body .origin. .body . or ig i n+body . bytes) THEN RETURN [bti]; 
ENDCASE => ERROR; 
bti <- bti + (WITH (bb+bti) SELECT FROM 

inner => SIZE[inner BodyRecord], 
ENDCASE => SIZE[outer BodyRecord]); 
ENDLOOP; 
RETURN [BTNull] 
END; 

-- path following procedures 

firstctxse: PROCEDURE [ctx: CTXIndex] RETURNS [ISEIndex] = 
BEGIN 

RITTURN [IF ctx = CTXNull 
THEN ISFNull 
FLSE (ctxb+ctx ) . sei ist] 
FND; 

nextse: PROCEDURE [sei: ISEIndex] RETURNS [ISEIndex] = 
BCGIN 
RETURN [ 

IF sei = SENull 
THEN ISENull 
n.SE 

WITH (seb+sei) SELECT FROM 
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terminal *> ISENull, 

sequential s > sei + SIZE[sequential id SERecord], 
linked => link, 
ENDCASE »> ISENull] 
END; 

ctxentries: PROCEDURE [ctx: CTXIndex] RETURNS [n: CARDINAL] = 
BEGIN 

sei: ISEIndex; 

IF ctx « CTXNull THEN RETURN [0]; 
WITH (ctxb+ctx) SELECT FROM 

included => IF -ctxreset THEN RETURN [0]; 

ENDCASE; 
n ♦• 0; 
FOR sei «• (ctxb+ctx) .selist, nextse[sei] UNTIL sei = SENull 

DO n 4- n +l ENDLOOP; 
RETURN 
END; 

-- type manipulation 

undertype: PROCEDURE [type: SEIndex] RETURNS [CSEIndex] ■ 
BEGIN -- strips off type identifiers 
sei : SEIndex «- type; 
WHILE sei # SENull 
DO 

WITH (seb+sei) SELECT FROM 
id => 
BEGIN 

IF idtype # typeTYPE THEN ERROR; 
sei «- idinfo; 
END; 
ENDCASE *> EXIT; 
ENDLOOP; 
RETURN [LOOPH0LE[sei, CSEIndex]] 
END; 

typeclass: PROCEDURE [type: SEIndex] RETURNS [TypeClass] = 
BEGIN 

RETURN [(seb+undertype[type]) .type tag] 
END; 

xfermode: PROCEDURE [type: SEIndex] RETURNS [TransferMode] = 
BEGIN 

sei: CSEIndex = undertype[type]; 
RETURN[WITH (seb+sei) SELECT FROM 

transfer => mode, 

ENDCASE => none] 
END; 

wordsfortype: PROCEDURE [type: SEIndex] RETURNS [CARDINAL] = 
BEGIN 

sei: CSEIndex = undertype[type] ; 
wordlength: CARDINAL = Al toDef s . wordleng th ; 
RETURN [IF sei = SENull 
THEN 
ELSE 

WITH (seb+sei) SELECT FROM 

mode => 1, -- temporary fudge for P4binding 

basic => (length + (wordlength-1 ) )/wordlength , 

enumerated => 1 , 

record => (length + (wordlength-1 ) )/wordleng th, 

po in ter => 1 , 

array => IF packed 

TIIFN (card inal i ty[ i ndextype] + ( By tesPerWord- 1 )) /By tesPerWord 
ELSE card inal i ty[ i nd ex type]* word sf or type[componen ttype] , 
arraydesc = > 2, 

transfer => IF mode = port THEN 2 ELSE 1, 
subrange => IF empty OR flexible THEN ELSE 1, 
ENDCASE => 0] 
END; 

cardinality: PROCEDURE [type: SEIndex] RETURNS [CARDINAL] = 
BEGIN 

sei: CSEIndex = under type[ type] ; 
RETURN [WITH (seb+sei) SEI ECT FROM 
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enumerated «> nvalues, 

subrange => IF empty OR flexible THEN ELSE range+1, 
basic => IF code = codeCHARACTER THEN AT toDefs.maxcharcode+1 ELSE 0, 
ENDCASE => 0] 
END; 

END. 



